home *** CD-ROM | disk | FTP | other *** search
/ Savor the Moment - Entert…ing Without Reservations / Savoe the Moment - Entertaining Without Reservations.iso / pc / Full_In / _SETUP.1 / HOSmovie.dxr / 00033.ls < prev    next >
Encoding:
Text File  |  1999-10-03  |  345 b   |  15 lines
  1. on mouseDown
  2.   soundchoice()
  3.   tell window("miaw")
  4.     if the soundEnabled = 1 then
  5.       member("loop").volume = 0
  6.       pause(member("loop"))
  7.       set the soundEnabled to not (the soundEnabled)
  8.     else
  9.       member("loop").volume = 150
  10.       play frame member("loop")
  11.       set the soundEnabled to the soundEnabled
  12.     end if
  13.   end tell
  14. end
  15.